home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 26 / AMIGAplus Sonderheft 26 (2000)(Falke)(DE)(Track 1 of 2)[!].iso / Tools / SFX-Player / Mpeg / MrMPEG / Save.rexx < prev    next >
OS/2 REXX Batch file  |  1999-03-29  |  1KB  |  31 lines
  1. /* Save.rexx */
  2.  
  3. options results; parse arg mode; address MrMPEG
  4.  
  5. MUIA_Cycle_Active    = 0x80421788
  6.  
  7. if mode = 1 then filename = 'ENVARC:MrMPEG.prefs'
  8. else filename = 'ENV:MrMPEG.prefs'
  9. if open('SaveFile', filename, 'w') = 1 then do
  10.   popasl ID PATH; writeln('SaveFile', result)
  11.   popasl ID FPATH; writeln('SaveFile', result)
  12.   check ID MONO; writeln('SaveFile', result)
  13.   check ID FILT; writeln('SaveFile', result)
  14.   knob ID VOLM; writeln('SaveFile', result)
  15.   cycle ID DIVS ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
  16.   cycle ID QUAL ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
  17.   slider ID PRIO; writeln('SaveFile', result)
  18.   cycle ID MAXF ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
  19.   cycle ID MIXF ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
  20.   cycle ID REPT ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
  21.   check ID EJCT; writeln('SaveFile', result)
  22.   check ID ADVC; writeln('SaveFile', result)
  23.   check ID RAND; writeln('SaveFile', result)
  24.   cycle ID ABUF ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
  25.   cycle ID IBUF ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
  26.   check ID UAHI; writeln('SaveFile', result)
  27.   text ID AHID; writeln('SaveFile', result)
  28.   call close('SaveFile')
  29. end
  30. return
  31.